100 (null) 110 OPT OO 120 *= $C000 130 CBASV = $D800 140 CBAS1 = $C700 150 CBAS2 = $CB00 160 SEI 170 LDA #IRQNEU 200 STA $0315 210 LDA #$FF 220 STA $D012 230 LDA $D011 240 AND #%01111111 250 STA $D011 260 LDA #%00000001 270 STA $D01A 280 LDA #$7F 290 STA $DC0D 300 CLI 310 RTS 320 IRQNEU LDA $D019 330 STA $D019 340 LDA $D012 350 LDA $02 360 BEQ ERSTE 370 LDY #$00 380 LOOP1 LDA CBAS1,Y 390 STA CBASV,Y 400 LDA CBAS1 + $100 ,Y 410 STA CBASV + $100 ,Y 420 LDA CBAS1 + $200 ,Y 430 STA CBASV + $200 ,Y 440 LDA CBAS1 + $300 ,Y 450 STA CBASV + $300 ,Y 460 DEY 470 BNE LOOP1 480 LDA #$00 490 STA $02 500 JMP $EA31 510 ERSTE LDY #$00 520 LOOP2 LDA CBAS2,Y 530 STA CBASV,Y 540 LDA CBAS2 + $100 ,Y 550 STA CBASV + $100 ,Y 560 LDA CBAS2 + $200 ,Y 570 STA CBASV + $200 ,Y 580 LDA CBAS2 + $300 ,Y 590 STA CBASV + $300 ,Y 600 DEY 610 BNE LOOP2 620 LDA #$FF 630 STA $02 640 JMP $EA31 0